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Editorial 


From all of us in Commodore our best 
wishes to all our readers for a Harry 
Christmas arid a successful New Vear. We 
hore that, the Post Office willing, all 
but some of our overseas subscribers 
will receive this issue of CPUCN within 
a few days of the Christmas holiday. 

We have changed the rase layout 
somewhat, in anticipation of soins over 
to a typeset format. But we really could 
not resist showins off the features of 
the Commodore Word Processins Prosram II 
and the 3822 printer - and we can boast 
that this issue's "hard copy" has been 


produced entirely on Commodore 
e*iu i pment. 

The "MACHINE CODE FOR BEGINNERS" cour 
has been held over until the next iss 
We are usins the space to pub 1 1 sh 
SUPERMON which previews some of the 
advanced -features available in the 
official Commodore Assembler Packase. 
SUPERMON will be used in future secti 
of the machine code course. 

See you asain in the New Vear! 

Andrew Goltz 



A recent Commodore 
Training Course in 
action. 
















Commodore News 


NEW PETS! 

A brand new 8K PET with all the 
advantages ot the new ROM operating 
system AND a large keyboard has Joined 
the ranks ot the Commodore PET range. 


Introduced as a result ot the interest 
shown by many 8K owners in the 
possibility ot adding a large keyboard; 
the new PET is a turther example ot 
Commodore's philosophy ot providing you 
with the products that VOU want at a 
price which gives you the best possible 
value tor money. 

The new PETs are ideally suited to the 
needs ot Education., the Laboratory.. 
Industrial Control; and the Home User. 
The large keyboard takes up the space 
previously available tor a built-in 
cassette deck. However., with the new PET 
priced at 1495 (+Vat); a centiguration 
ottering all the advantages ot the new 
8K PET; and including one external 
cassette deck will only cost as much as 
the old 8K model. In a multi-PET 
environment., where a number ot machines 
can be loaded from a single cassette 
deck., substantial cost savings can be 
made. 


The new PETs incorporate the new dynamic 
RAM chips which have proved themselves 
ultra reliable in the 16K arid 32K 
machines. As the new ROMs are included 
as a standard teature owners wishing to 
add a t loppy disk unit at a tuture date 
will be able to simply "Plug in arid go"; 
with no need to "retrotit" a different 
set of ROMs as was the case with the old 


8K model. 



PRINTOUT 


... reports on the latest developments in the 
Pet world and conducts tests on software and 
peripherals. 

Send 95p for a sample issue or £9.50 for a 
year’s subscription (10 issues). 


Printout Publications 

Greenacre House, North Street, Theale, RG7 5EX 
Telephone: Slough (0753) 20814 _^ 


MORE NEW PRODUCTS ON THE WAV! 

With Commodore's Research arid 
Development budget running at a _ 
staggering $5m a year we hear through 
"the*grapevine" of a whole range new 
products currently in the research labs. 
Larger capacity disks; Larger capacity 
PETs. Colour PETs!!!; pocket calculator 
sized PETs.. intelligent MODEMS (the 
interest shown in our research work by 
our competitors nessecitates that we ^ 
draw a veil over our research activities 
at this point. Watch this space for 
futher details! - Ed.- 1 


BIGGER TRAINING PROGRAM IN 1980 

As a resu It of the interest shown in our 
1979 pi lot Training Program.. Commodore 
will be extending the range of training 
course available in 1980. 

All except the most proficient 
K>ro«jramers will +*ind iuseful ■fco 3 ct“terid 
the new ADVANCED BASIC course. This 
course will introduce a numbers of 
advanced programming techniques; and 
will also draw attention to a. number of 
"bad habits" which can creep into the 
work of even quite experienced 
programmers. 


Those interested in using the PET for 
monitoring scientific equipment or 
industrial control will find the new 
MONITORING & CONTROL seminars of 
particular- value. These are being run by 
us and supported by a. team of Commodore 
dealers with specialist experience in 
this field; including - MACHSIZE (who 
recent ly deve loped a bar- code reader for 
the PET); ANASPEC (who offer the PET 
interfaced to a wide range of -analytical 
equipment); arid PETALECT (.who pioneered 
the hook-up of electronic balances to 
the PET). 

A series of seminars is also being run 
for those contempl atins the introduction 
of a microcomputer into their, business. 
The speakers will include 
representatives from Commodore., a 
Business Software dealer., and a Business 
User., who will talk about his own 
experiences. So if any of your business 
friends are looking at the possibility 
of purchasing a micro., after you have 
thourough ly confused them with SPACE 
INVADERS and 3D STARTREK.. send them 
along to the COMMODORE BUSINESS 
SEMINARS! 

A leaflet containing full details of our 
new training program should be included 
with this newsletter. If it was 
accidently missed out; please contact_ 
the Commodore Information Centre at 360.. 
Eust-on Road.. London NH1.. for fu 11 
detaiIs. 




Software Review 


COMMODORE WORD PROCESSOR II 
Mike Whitehead 


In this issue I thought I would continue 
the process of describing the new 
Commodore disk software releases by 
gicing you a. brief introduction to the 
Commodore Word Processor II. 

First I should mention that this program 
<ES110O> is in the Commodore Business 
Software library.- and as such ear only 
be purchased from that subset of 
Commodore dea.lers who are also commodore 
Business Software dealers. The idea is 
that the more complicated business 
programs may well take a good deal of 
demonstrat i ngexp lai n i ngi nsta 11 i ng , 
and continued support in the field. 

Therefore we on ly re lease these programs 
through dealers we fee 1 capab le of 
performing these functions effectively, 
fill this being said.- however, WordPro II 
isn't exactly the hardest program to 
become faini liar with, given that you are 
somewhat used to computers. 

To start with. Word Pro II comes with a 
manual, a. diskette with two different 
versions of the program and two manuals 
on it, a Master Security ROM, arid a big 
white binder to hold it all. The 
package costs #75.80, and anyone who has 
seen it in operation will agree that it 
is an outstanding value. Vour dealer 
must insert the Master Security ROM in 
your 1SK or 32K PET before any of the 
disk-based Business Software programs 
ini ii work. This approach has been taken 
to prevent illegal copying of copyright 
software. Our authors have invested a 
great deal of time and money to produce 
our business packages, arid we feel 
obliged to take any and all steps we can 
to protect that investment - as Pet 
users we ask you to help in this. 

The two manuals which are available for 
WordPro II are the reference manual and 
the training manual. WordPro files for 
both manuals are provided on your 
diskette, and a printed copy of the 
reference manual is also included. For 
non computer types, the training manual 
is ideal. It was written by Mike 
Gross-Niklaus, who is our training 
manager here at Commodore. Mike has a 
gift for explaining almost anything in 
very straight—forward terms - so 
certainly most typists should be able to 
learn WordPro by using the training 
manual■ 

Once you have got your Security ROM 
insta.lied and have read the manual, you 
are ready to start word processing. If 
you have a Commodore printer then you 
LOAD and RUN the program CBM EDITOR. If 
you have a. printer which operates on the 
standard ASCII character set, then you 


use the program ASC EDITOR. Both are 
complete versions of the WordPro 
program. Memory space within the PET is 
divided into Main text and Extra text, 
as defined by WordPro. Generally 
sneaking these two areas are 
interchangeable as they both are used to 
store text, but in practice Main text is 
used to store the body of a letter and 
Extra text holds any special insertions 
it may need. The dividing line in 
memory between Main text and Extra text 
may be moved, to give you less of one 
and more of the other. In fact the very 
first -question you are asked after 
running WordPro is how many lines of 
text you wish to allocate to Main text, 
with the remainder going to Extra text. 


Once you get past that question the 
screen comes up with the standard 
display for the WordPro environment. 

This consists of a status line which 
reads : 

PET Text Editor : X : I : S : C : H : C= i L= 1 


What does all this mean then? Let's 
start at the right-hand side arid work 
backwards. The C arid L values 
correspond to the current line arid 
character position of the cursor. As 
the entire package is written in machine 
code, it is no problem at all for these 
numbers to be updated in real time, as 
you type in. Next comes all the letters 
surrounded by co Ions. These are status 
indiGators which will light up (reverse 
characters.- 1 if any optional mode of 
operation has been selected. X stands 
for Extra text, and is to remind you 
when that is your current text 
environment. I stands for Insert mode. 
If you position the cursor in the middle 
of a word and enter insert mode (SHIFT 
OFF/RVS) then anything you type in will 
automatically push any text after it 
further to the right and/or- onto the 
next line. S stands for shift lock. 

For this you don't use"the normal shift 
lock key, but rather the back slash key 
located on the top row of the keyboard. 

C is used to indicate control mode, 
meaning that you are in the middle of 
some special function initiated by the 
control key (sorry, it"'s the OFF/RVS 
key!). N is a rather special indicator. 

It's three values are N, U, arid L, for 
Uppercase, Lowercase, and Normal. These 
three states correspond to the 
transformation performed on the 
characters on the screen when the cursor 
is passed over them from left to right. 
To transform "' lowercase"' into 
"'LOWERCASE"' you type Control U (to get 
i nto uppercase trans late mode > arid pass 
the cursor from left to right over the 
word in question. The last bit 
di sp layed on the status line is PET Text 
Editor, which is sometimes replaced with 
other text in various special modes. 



lets you do an 


Now that I'ye got all ot this nasty 
overhead out ot the way.- let x s see what 
it is like to operate the system in 
practice. First oft let me explain that 
WordPro consists of two major portions - 
one that, let's you type in text, modify 
and review it. arid the other portion 
which let's you type the document out. 
Within output mode (entered by control 
0 ) the screen display changes entirely, 
displaying only a menu of current output 
options - such as margin settings, 
spacing, pagination, and right 
justification. Once you have these 
options set as desired, you are ready to 
print. However there is not only one 
print command. T for type is the usual 
one. for simple printing, but a few 
others exist to allow you to type 
c;0u,ri|.--3 1 cop- i es of a g i ven letter at 
once, or to type several copies of a 
variable insertion form letter at once. 
This last carability is one of the very 
most powerful available to you within 
WordPro, arid will be dealt with in depth 
shortly. For the meantime, let's go 
back to the typing/editins environment 
<E to exit back from output mode). 

Vou can type anything you like, anywhere 
you like on the screen, and have a 
software enabled repeat key availab le to 
you for moving the cursor around 
quickly. Input is free format, in that 
words wrap around from line to line - 
the document on ly takes its final shape 
when it is printed. 

There is no need to hit the return key 
at the end of each line — just type 
continuously arid WordPro will look after 
the formatting when it is time to print. 

Returns are only used to force new 
lines of print (such as at the end of a 
paragraph) or to leave blank lines in 
the printed text. When you think your 
document is about right, you can print 
it out to check. If it needs correcting 
you have the normal insert -arid delete 
key functions available, and a few 
special capabilities -as well. Special 
editing functions include paragraph 
move, line insert, line delete, block 
insert, and string search. When the 
document is corrected you may save it on 
the disk if you think you will want it 
again. Disk functions available include 
Load. Save. Directory, and an 
environment rather like DOS Support. 


The Load function even 
Append! 


WordPro II runs on both 16k and 82k 
Pets, but will only ever use 16k of 
memory. As the program itself is about 
8 k long, the user has 196 screen lines 
open to him - each 40 characters wide. 

At most 173 of these lines may be 
devoted to the main text area, but this 
is no real restriction as any given file 
should only ever include one printed 
pa«ie of text anyway. This orientation 
explains why WordPro II is best used for 
letters and short documents - each page 
of print must be recalled from disk and 
printed as separate operations, which 
could get a bit tedious after too many 


h-, «=»•=:. 


One really powerful 'carabi lity of the 
WordPro package that I haven t said much 
about is form letter writing. A typical 
form letter might be about half a page 
of A4. -arid contain 4 or 5 snots where 
you would like the letter to be 
personalised. Name, address, date, 
amount due. items and quantities shipped 
- these are all good candidates for 
variable insertion blocks, the points at 
which WordPro letters may be 
personalised. If you are typing in the 
ske let-on of a form letter and come to a 
spot which varies, you only need type 
Control B. This leaves an odd mark on 
the screen to remind you of the 
insertion point. When you have finished 
the form letter you can save it to disk, 
switch over to Extra Text (which you 
both enter and exit using Control X). 
and type in the sets of insertion data 
for each letter. To print out five 
versions of a form letter with 4 
variab le insertion blocks. you wou Id 
have to enter 20 bits of information to 
Extra Text. To print out these 5 
letters one after the other you use the 
command T (Type) L (List) C (Continuous) 
within the output mode. Incidentally, 
the action on the screen at this point? 
as the variable data blocks are 
dynamically inserted into your form 
letter, is one of the most impressive 
displays I've ever seen on the Pet! 

One last word. This article was created 
using WordPro II - straight from my head 
to the screen of the Pet to one of our 
3022 tractor drive printers. 


HEW RELEASES (AVAILABLE MID JANUARY ) 
FOR THE COMMODORE LIBRARY 


Educational 


Introduction 

to A Igetara 

MR 061 

.•-20 

Mathematical 

Games 

MP062 

£10 

Samp 1 ins 


MP063 

4l0 

Languages 


MP064 

i 10 


Entertainment 


T reasure 

Trove o-f 

1 Games 9 MP065 

$ 10 

T reasure 

Troue 0 + 

Games 10 MP068 

#10 

Invaders 


MP067 

>07 


Scientific/Mathematica1/Engineering 


R-L-C Circuit Analysis 

MP070 

>10 

Drawing Load & Die Design 

MP071 

#10 


Wt? hop© short ly "to have both 3. "tap© 
and disk collection of utility programs 
avai lable ton general release, 
f! 1 though, this will probably be 
completed by the time you receive your 
nesw letter. I don't want to official ly 
sanction it's release yet.' -as we ma.y be 
introducing some late charities to the 
pa.cka.se. He want to make sure you yet 
the best! 

How a little more about the 
individual programs outlined above. 

Full descriptions will be published in 
our New Master Library Catalogue Ito be 
published at the end ot January). Make 
sure you set one -from your local dealer. 


MP061, RN INTRODUCTION TO ALGEBRA, 
is the first of whaft will be a. complete 
suite of programs introducing the first 
time user to Algebra and numbers in 
general. Complete with manual, the 30 
programs assume no prior know lads© or 
fami liarity with Algebra, arid step by 
step, guides the student through at his 
or her own pace. 

Informally written arid presented, 
peop le of any age shou Id have no prob lem 
with coping with this excellent package, 
whether it be used at home or in the 
classroom. 

Watch this space for future 
additions to our educational range. 

Following on from this, MF'U63, 
SAMPLING, is -art excellently written 
program,using the PET'S graphics 
superbly, which gives very good 
demonstratins of what can be achieved 
with a knowledge of mathematics. Rs the 
title suggests, the progam covers 
statistical sampling arid whether you 
want binomial, or Poisson or any of 6 
kinds of distributions, with your own 
parameters, this program provides it. 

MF‘064, LANGUAGES, allows you to 
brush up on your knowledge of French, 
German, Spanish, Italian, Dutch or 
Danish, all on one tare. Commodore 
enters the E.E.C. and at only $12.00 
too! Vou can't order in deutschmarks, 
f rarics, etc! ). 

On the entertainment side, MF'065, 
TREASURE TROVE OF GAMES No 9, contains 
the following 4 programs 1 

1/ DODGE ClTV - Rs sheriff of a wi Id 
west town, you discover ten outlaws on 
the loose! Can you shoot them, before 
you're sent on a one way trip to the 
cemetry? 

LV' MuLElULEs & ATuMs — PET version of 
the board game Black Box. Impesonate 
ear ly 20th Century physicists as you try 
to discover the atomic structure of 
vanious mo lecu les. 

3/ HuRsE RficE - Gamb le on the horses 
without losing any money! 


4/ ONE ARM BANDIT - Further attempts to 
keep out of the pubs -arid c lubs of the 
Land, allowing you to gamble for 
nothing! Very good 'graphics employed on 
this simulation of a popular- pastime. 


MF'066 TREASURE TROVE OF GAMES No 10 
contains - 

1/ SQUADRON SCRAMBLE - Re-enact the 
Battle of Britain in the comfort of your 
home (or science laboratory) with the 
outcome at the start as uncertain as was 
the real thing. Excellent graphics. 

27 TOWER OF HANOI - Entertaining and 
complicated thinkins invo 1 ved in this 
ancient mathematical problem. 

3/ SUB KILLER - Try to destroy as many 
enemy submarines -as possi le from your 
fu l ly contro 1 led shi p. 

MP067, INVADERS shows Just what can be 
achieved in machine code game 
programming, graphics and real time 
simulation being surely used to the 
ultimate. (But we know you'll prove us 
wrong one day!). Complete with sound 
(wiring diagram displayed by program!), 
this must be the most addictive game 
Commodore has ever re leased. Many of 
you will have spent a fortune on this 
same in pubs and c lubs by now. Buy from 
Commodore and save money!" 


Incidentally, a copy of this program 
fell into the hands of Paul 
Hissinbottom, one of our Software 
experts. His thoughts, well read on 


Vou may not have heard of me before, my 
name is Paul Hi-as infoot tom and I am the 
latest addition to the Commodore 
Software Department, although I have 
been with Commodore for 6 months already 
in other capacities. 

I deal mainly with the new Disk based 
packages but INVADERS was one tape 
program which I fell in love with. 

This is written both entirely in machine 
code makins it a graphica 1 ly very 
attractive game. Anyway, now let's try 
to explain a little about the same'- 

SPACE INVADERS - For those of you who 
have p layed the same in amusement 
arcades or Public houses, then I would 
like to add that this is an exact copy 
of the game. Sirup ly because the 
microprocessor in those arcade machines 
is a 6502, the very same as in the PET. 
For those of you who have not Played it, 
the description may sound very silly, 
but those who have will tell you (me 
included) Just how viciously addictive 



the same is. In the same, you must move 
a space cannon undrneath your tour bases 
and tire up at the tast approaching 
Space Invaders, which look like small 
s&s. monsters * They ere com t inured in 
rows across the screen arid march across 
the screen. Each time any ot the brace 
Invaders reaches the edge ot the screen, 
they drop down one position, getting 
nearer .and nearer to your bases. Just 
to add to your dilemma, they can tire at 
you too, dropping deadly dollar signs on 
you. Vou score by destroying the 
Invaders (the uppermost ones on the 
screen scoring highest). Also there is 
a mystery score which is a larger 
spaceship, which wanders across the 
top ot your screen over the contusion 
below itselt. The Invaders score 
between 10 and 50 arid the mystery is 
between 50 and 300. It you suceed in 
clearing all the Invaders ott the 
screen, the screen simply resets another 
set ot Invaders, but they are now a row 
nearer to you. End ot game is caused 
by losing all three ot your lives '..4 it 
you score over 1500 and set the bonus 
lite) or being •’invaded" i.e. They land 
on earth. Movement is easy, holding 
your tinger on the 4 or 6 keys moves the 
gun lett and right across the screen and 
pressing the fl key tires the cannon. 
(Made possible because the PET keyboard 
i-- scanned and not interrupt driven like 
Apple). The PET plays itselt in a demo, 
while you're not p laying,giving humorous 
instructions between each one. I would 
say that PET Space Invaders is slightly 
harder than the arcade version, but the 
cannon is more responsive to movement. 


Other January releases include - 


R-L-C CIRCUIT ANALYSIS, MP070, is 
exactly what the title describes, and 


goes hand in hand with our current 
package ot Linear' Circuit Analysis. hie 
two between them contain much valuable 
in tor-mat in tor anyone designing or using 
electrical circuits ot many kinds. 

DIE DESIGN AND DRAWING LOAD, MP071, is a 
well written program whose function is 
agai n se If evident from the title. I n _ 
resonse to your inputs, the program will 
tell you whether the values that you 
have typed make sense or not. Probably 
my favourite of all the new releases. 

On the business and financial side, you 
may feel that cassettes have been 
somewhat super-ceded by disks. Not 
everyone has a disk yet .... \ 

Commodore cassette business Software 
mill continue to expand and improve to 
meet your growing Software requirements 
and the New Year- will continue to see 
that side of the Commodore Software 
library beins added to< 

Mathematical, Scientific and Engineering 
is always a popular field for both 
programs arid programmers, and a field 
"fch-sofc is particularly suited to the FET 
because of its" fine saphics. We are 
always interested in receiving programs 
from new as well as established authors 
in this field. 

Well here they are, the new cassette 
releases for the new year, as this year_ 
comes to a very interesting close. Iy7y 
has seen many new re leases,_and our 
library now contains over 50 packages, 
all of which will run on the old and new 
ROMs. (Witness our release of Super 9*3 
on MP044, as the last of the old ROM 
programs to be converted.) Our thanks 
•and congratulations go out to all our 
authors for providing an excellent set 
of programs, which were a real p leasure 
to see through to actual release. Keep 
it up! 

Peter Gerrard 

- Cassette Library Manager 



New/Old ROM Memory Map 


SOME PET ROUTINES 


By Jim Butterfield 

and Jim Russell, Toronto 


New 


Old 



C2AA 


C2AC-C2D9 

C2D8 


C2DA-C31C 

C31B 


C31D-C329 

C328 


C32A-C356 

C355 


C357-C388 

C389-C391 

C392 

* 

C394-C3A9 

C3AB 

* 

C3AC-C42E 

C439 

* 

C430-C460 

C46F 


C462-C476 

C481 


C479-C48C 

C495 


C48D-C521 

C52C 


C522-C550 

C55B 


C551-C599 

C5A7 


C59A-C5A7 

C5B5 


C5A8-C647 

C658 


C649-C68F 

C6A1 


C692-C6B4 

C6C4 


C6B5-C6EF 

C700 

* 

C6F2-C70A 

C730 


C70D-C71B 

C73F 


C71C-C742 

C76B 


C745-C75E 

C75F-C76D 

C577 


C770-C772 

C785 


C775-C77D 

C790 


C780-C79A 

C7AD 


C79D-C7C9 

C7DA 


C7CA-C7FD 

C80E 


C7FE-C81E 

C830 


C820-C840 

C853 


C843-C862 

C373 


C863-C89A 

C8AD 


C89D-C91B 

C928 


C91C-C97E 

C98B 


C97F-C982 

C991 


C985-C996 

C9A5 


C999-CA24 

CAlC 


CA27-CA41 

CA45 

★ 

CA44-CA7& 

CA4F 


CA77-CA9E 

CA7D 


CA9F-CAC5 

CAA7 


CAC6-CADF 

CACl 


CAEO-CB14 

CAFA 


CB17-CB21 

CB07 


CB24-CC11 

CBFC 


CC12-CC35 

CC20 


CC36-CC8F 


peeks at the stack for an active FOR loop 

"opens up' a space in Basic for insertion of a new line 

tests for stack-too-deep and aborts if found 

check available memory space 

sends a canned error message from C190 area, then drops intw: 
Signals 'ready' 

gets a line of input, analyzes it, executes it 

handles a new line of Basic from keyboard; deletes old line, etc. 
corrects the chaining between Basic lines after insert/delete 
receives a line from the keyboard into the Basic buffer 
gets each character from keyboard 

looks up the keywords in an input line and changes to tokens 

searches for the location of a Basic line from number in 8,9 

implements NEW command — clears everything 

sets the Basic pointer to start-of-program 

performs LIST compand 

executes a FOR statement 

continues to build FOR vectors 

reads and executes the next Basic statement, finds next line, etc. 
executes the Basic Command as a subroutine 
performs RESTORE 

handles STOP, END, and BREAK procedures 
performs CONT 

set pause after carriage return (never called) 

performs CLR 

performs RUN 

performs GOSUB 

performs GOTO 

performs RETURN 

scans for start of next Basic line 
performs IF 
performs ON 

gets a fixed-point number from Basic and stores in 8,9 
performs LET 

checks numeric digit/move string pointer 
performs PRINT# 
performs CMD 
performs PRINT 

prints string from.address in Y,A 

prints a character 

handles bad input data 

performs GET 

performs INPUT# 

performs INPUT 

prompts and receives the input 
performs READ 

canned messages: EXTRA IGNORED; REDO FROM START 
performs NEXT 



New 

CC79 

CC9F 

CD21 

CD84 

CDA3 

CDA8 

CDCF 

CDDE 

CDEC 

CDF 2 

CDF5 

CDF8 

CE03 

CE08 

CEOF 

CE2A 

CEB 9 

CEC8 

CEF8 

CF60 

CF6D 

D001 

D069 

D078 

D089 

D08D 

DOAC 

D259 

D26D 

D27A 

D280 

D28D 

D33F 

D361 

D3CE 

D400 

D5C6 

D5DA 

D656 

D665 

D675 

D687 

D6C6 

D6D2 

D6E8 

D710 

D72C 

D8C8 

D8F6 

D934 

D998 

D9C3 

D9EE 

DA1B 

DAAE 


Old 

CC92-CCB5 

CCB8-CD38 

CD3A-CD9C 

CD9D-CDB9 

CDBC-CDCO 

CDC1-CDE7 

CDE8-CDF6 

CDF7-CE04 

CE05 

CEOB 

CEOE 

CE11-CE1B 
CE1C-CE20 
CE21-CE27 
CE28-CE39 
CE3B-CE96 
CE97-CED5 
CED60CF05 
CF06-CF6D 
CF6E-CF7A 
CF7B-DOOE 
D00F-DO78 
D079-D087 
D088-D098 
D099-D09C 
D09D-D0B8 
D0B9-D263 
D264-D277 
D278-D284 
D285-D28A 
D28B-D294 
D295-D348 
D349-D36A 
D36B-D3D1 
D3D2-D403 
D404-D5C3 
D5C4-D5D7 
* D5D3-D653 

D654-D662 
D663-D672 
D673-D684 
D685-D6C3 
D6C4-D6CF 
D6DO-D6E5 
D6E6-D701 
D702-D71D 
D71E-D890 
D891-D8BE 
D8BF-D8FC 
D8FD-D95D 
D95E-D988 
D989-D9B3 
D9B4-D9E0 
D9E1-DA73 
DA74-DA98 


checks Basic format, data type, flags TYPE MISMATCH 

inputs and evaluates any expression (numeric or string) 

pushes a partially-evaluated argument to the stack 

evaluates a numeric, variable, or pi, or identifies other symbol 

value of pi in floating binary 

chocks for special characters (+, ", ■ > at start of expression 

nerforms NOT function 


checks for various functions 

evaluates expression within parentheses 0 

checks for right parenthesis ) 

checks for left parenthesis ( 

checks for comma 

prints SYNTAX ERROR and exits 

sets up function for future evaluation 


set up a variable name search 

checks for special variables TI, TI$, and ST 


identifies and sets up function references 


perform the OR and AND functions 
performs comparisons 
sets up DIM execution 
searches for a Basic variable 
creates a new Basic variable 
logs Basic variable location 
is array pointer subroutine 
is 32768 in floating binary 

is floating point-to-fixed conversion for signed values 


locates and/or creates arrays 


performs FRE function 

converts fixed point-to-floating 

performs POS function 

checks direct/indirect command, gives 'ILLEGAL DIRECT 
executes DEF statements and evaluation FNx 


performs STR$ function 

scans and sets up string elements 

builds string vectors 

does 'garbage collection' — discards unwanted strings 
performs CHR$ function 

performs LEFT$, RIGHT$, MID$ functions 
performs LEN, gets string length 
performs ASC function 
gets a single-byte value from Basic 
evaluates VAL function 

gets two arguments (16-bit and 8-bit) from Basic 

checks argument is in range 0-65535 

performs PEEK and POKE 

executes WAIT statement 

performs addition and subtraction 

contains floating-point constants 

performs LOG function 

performs multiplication 

loads secondary accumulator from memory ($B8 to $BD) 
test and adjust primary/secondary accumulators 
routines to multiply or divide by 10 
performs division 

loads primary accumulator from memory ($B0-$B5) 



New 

Old 

DAD3 

DA99-DACD 

DB08 

DACE-DADD 

DB18 

DADE-DAEC 

DB27 

DAED-DAFC 

DB37 

DAFD-DB29 

DB64 

DB2A-DB2C 

DB67 

DB2D-DB6C 

DBA7 

DB6D-DB9T 

DBD8 

DB9E-DB'' ; 

DBFF 

DBC5-DC4F 

DC8A 

DC50-DC84 

DCCE 

DC94-DCAE 

DCE9 

DCAF-DDE2 

DElD 

DDE3-DE23 

DE5E 

DE24-DE2D 

DE68 

DE2E-DE66 

DEAl 

DE67-DE71 

DEDA 

DEA0-DEF2 

DF2D 

DEF3-DF3C 

DF7F 

* DF45-DF9D 

DFD8 

DF9E 

DFDF 

DFA5-DEED 

E028 

DFEE-E019 

E08C 

E048-E077 

EOF 9 

EOB5-EOCC 

E116 

E0D2-E173 

E19B-E1BB 

E1BC-E1E0 

E1DE 

* E1E1-E27C 

E285 

E27D-E3C3 

E3B4 

E3C4-E3E9 

E3D8 

E3EA-E52F 

E519 

E530-E5DA 

E257 

E5DB-E66A 

E61B 

E66B-E67D 

E6E4 

E67E-E683 

E62E 

E685-E73E 

E6F8 

E73F-E7AB 

E6EA 

E7AC-E7B9 

F156 

E7DB-E7EB 

F0B6 

FOB6-F1CB 

F1D1 

F1CC-F22F 

F232 

F230-F27C 

F272 

F27D-F2A3 

F26E 

F2A4-F2AA 

F28D 

F2AB-F2B7 

F299 

F2B8-F2C7 

F2A9 

F2C8-F329 

F301 

F32A-F33E 

F33F-F345 

F3C2 

F346-F3FE 

F3FF-F421 

F422-F432 

F433-F451 

F462-F494 

F495-F4BA 


transfers primary accumulator to memory 
transfers secondary, accumulator to primary 
transfers primary accumulator to secondary 
rounds the primary accumulator 
ex -.r'-.cts primary sign; performs SGN functior 

performs ABS 

compares primary accumulator to memory 
convert floating point to fixed, unsigned 
perform INT function 

convert ASCII string to floating point 
get new ASCII digit 
print Basic line number 

convert floating point to ASCII string .(at 0100 up) 

conversion constants - decimal or clock 

evaluation SQR function 

evaluation of power function 

negate (monadic -) 

perform EXP function 

perform function series evaluation 

perform RND calculation 

evaluate COS function 

evaluate SIN function 

evaluate TAN function 

evaluate ATN function 

Basic scan program, transferred to 00C2-00D9/0070-0087 
completion of power-on-reset; memory test, etc. 
partial test for TI and TI$ 
input/read/get director 

initializes I/O registers, clear screen, reset subroutine 

receive input from keyboard/screen 

set up new screen line 

output character to screen 

check for and perform screen scrolling 

start new screen line 

interrupt entry 

interrupt return 

hardware interrupt routine: cursor flash, tape motor, keyboard 

convert keyboard matrix to ASCII 

write-on-screen subroutine 

print canned monitor message 

IEEE-488 channel open, test, close 

get input character from keyboard, screen, cassette, IEEE 

output character to screen, cassette, IEEE 

restore normal I/O, clear IEEE channels 

abort (not close!) all files 

locate logical file table entry 

transfer file table entries to Device, Command 

perform file CLOSE 

test stop key 

test if direct/indirect command for suppressing file advice 
perform file LOAD 
print "SEARCHING 

print "LOADING .." or "VERIFYING" 

get parameters for LOAD anu SAVE 

perform IEEE sequences for LOAD, SAVE, and OPEN 

search for specific tape header 



New 

Old 

F4B7 

F4BB-F4D3 


F4D4-F529 

F521 

F52A-F5AD 

F5A6 

F5AE-F5E2 


F5E3-F5EC 

F5DA 

F5ED-F64C 

F63C 

F64D-F666 

DF7F 

DF45 

E054 

E01A 

EOBC 

E078 

E116 

E0D2 

E116 

E0D2 

E1B7 

E174 


E19B 


E19F 


E1AB 


E1BC 


E1D9 


E1C2 


E1CC 

E1DE 

E1E1 

E246 

E236 

E229 

E250 

E257 

E5DB 

E285 

E27D 

E29D 

E297 

E2F4 

E2FA 

E5BA 

E605 


E73F 

E6F8 

E75C 


E7AC 

E748 

E7BC 

E761 

E7D5 


E7DE 

E76A 


E775 


E784 


E78D 


E797 


E7A7 


E7B6 


E7E0 


E7EB 


E7F7 


F656 

F667-F67C 

F66C 

F67D-F694 

F684 

F695-F69D 

F69E 

F69E-F71B 


F71C-F735 

F729 

F736-F78A 

F770 

F78B-F7DB 

F7BC 

F7DC-F82C 

F806 

F82D-F83A 

F812 

F83B-F85D 

F835 

F85E-F870 


perform VERIFY 

get parameters for OPEN and CLOSE 
perform OPEN 

search for any tape header 
clear tape buffer 
write tape header 

get start & end addresses from tape header 

New for RND(O) 

floating constants 

floating constants 

new initial SP value 

minor differences in initialization 

Bytes free. Commodore Basic 

Save line ft, Print "READY" (see C751 K72B) 

Part of TI (see CE2A/CE33) 

Part of TI (see CE2A/CE33) 

Part of INPUT, GET, READ, etc. (see CB07/CB24) 

Part of. INPUT, GET, READ, etc. (see CB07/CB24) 

? 

? 

initialization, (minor differences) 
clear screen 

initialize line ptrs for clear screen (minor changes) 
adjust line ptrs for preset line 
get clear from KB buffer 

Wait for KB input, write to screen, exit on CR 
INPUT from screen 


WROA 

WROB 

WRTWO 

ASCII 

T2T2 

RDOA 

RDOB 

HEXIT 

RDOC 

ERROPR 


| Monitor 


Set buffer start address 

set tape buffer start and end pointers 

perform SYS command 

perform SAVE 

find unused secondary address 


update clock 

set input device 

set output device 

bump tape buffer counter 

wait for cassette PLAY switch 

test cassette switch line 



New 

Old 

wait for cassette RECORD and PLAY switches 

F847 

F871-F87E 

F855 

F87F-F8B8 

read tape initiation routine 

F886 

F8B9-F8D1 

write tape initiation routine 

F89E 

F8D2-F912 

complete tape read or write 

F8E6 

F913-F91D 

wait for 1/0 completion 

F8F0 

F91E-F92D 

test stop key and abort if necessary 

F900 

F92E-F95E 

subroutine to set tape read timing 

F931 

F95F-FBFB 

interrupt routine for tape read 


FBDC-FBE4 

save memory pointer 


FBE5-FBEB 

set ST error flag 


FBEC-FBFF 

subroutine to count 8 serial bits per byte 


FC00-FC1B 

subroutine to write a bit to tape 


FC1C-FCFA 

interrupt 1 for tape write - entry at FC21 


FCFB-FD15 

terminate I/O and restore normal vectors 


FD16-FD37 

subroutine to set interrupt vector 


FD38-FD47 

power-on reset entry; test for diagnostic 


FD48-FD7B 

diagnostic routine 


FD7C-FD8F 

check sum routine 


FD90-FD9A 

pointer advance subroutine 


FD9B-FFB1 

diagnostic routines 

JUMP TABLE: 


FFCO 

OPEN 


FFC3 

CLOSE 


FFC6 

set input device 


FFC9 

set output device 


FFCC 

restore normal I/O devices 


FFCF 

input character (fr«m screen) 


FFD2 

output character 


FFD5 

LOAD 


FFD8 

SAVE 


FFDB 

VERIFY 


FFDE 

SYS 


FFEl 

test stop key 


FFE4 

get character from keyboard buffer 


FFE7 

abort all I/O channels 


FFEA 

update clock 


FFED-EFFA 

turn off cassette motors 


FFFA-FFFB 

NMI vector (mangled) 


FFFC-FFFD 

reset vector 


FFFE-FFFF 

interrupt vector 


* = coding change 



E810 

E811 

E812 

E813 


Diagnos 

Sense 

IEEE 

EOI in 

Cassette Sense KEYBOARD ROV* 

2 1 

' SELECT PA 

Tape 1 
Input Flag 


Screen Blank Output (unused on 32K) 

IEEE EOT out CA2 

DDRA 

Access 

Cassette 1 

Read Control CA1 

KEYBC 

)ARD ROW 

INPUT 


Retrace 

1 Flag 


Cassette 1 Motor Output 

CB2 

DDRB 

Access 

Retrace Interr. 
Control CB1 


59408 

59409 

59410 

59411 


E820 

E821 

E822 

E823 


IEEE.INPUT 


ATN 

1 Flag 


IEEE NDAC out 

CA2 

DDRA 

ACCESS 

IEEE ATN in 

Control CA1 

1 

EEE-OUTPU 

T 


SRQ 

1 Flag 


IEEE DAY OUT CB2 

DDRB 

ACCESS 

IEEE SRQ in 

control CB1 


59424 


59425 


59426 


59427 


E840 

E841 

E842 

E843 

E844 

E845 

E846 

E847 

E848 

E849 

E84A 

E85B 

E84C 

E84D 

E84E 


DAV 

in 


NRFD 

in 


1 Retrace 1 

Cass 2 

Cassette 

ATN 

NFRD 

IBDH 

Motor 

Output 

out 

out 


NDAC 
in PB 


DIRECTION REGISTER B (FOR E840) 


DIRECTION REGISTER A (FOR E84F) (R.U.P.; 


TIMER 1 
WRITE 


TIMER 1 

LATCH 


TIMER 2 


SHIFT REGISTER 


Tl Control 
PB7 out 


One-Shot 

Free-Run 


T2 Contr. 
PB6 Sense 


Shift Rec. Control 


PB, PA Latch 
Control 


CB2 (P.U.P. Control 
In/Out 


CB1 in 
Cassette 2 
Polarity 


CA2 (Graphics, Lower Case) Control 
In/Out 


CA1 in 
POLARITY 


IRQ 

Status 


Enable 

Clear/Set 


Tl 

INT 


Tl 

Int ENAB 


T2 

INT 


CB1 Cass 
Int 


T2 

Int ENAB 


CB1 

Int Enab 


CB2 
Int Enab 


SR 

INT 


SR 

Int ENAB 


CA1 

(P.U.D.B.) 

Int 


CA2 

Int 


CA1 

Int ENAB 


PAP 

Int ENAB 


59456 

59457 

59458 

59459 

59460 

59461 

59462 

59463 

59464 

59465 

59466 

59467 

59468 

59469 

59470 


E84F 


PARALLEL USER PORT 1/0 (PA) 


PA 


59471 





































To indentify a -function of PET's 
original ROM. and/or convert it tojthe 
equivalent upgrade ROM location, use 
this table. 


fill addresses are given in hexadecimal. 


OLD 
FiDDRS 
0000 : 
0008 : 
001 0 : 
0018: 
0020 : 
0028 : 
0030 : 
0038 = 
0040: 
0048: 
0050: 
0058 : 
0060 : 
0068 = 
0070 •• 
0078: 
0080 : 
0088 : 
0090 : 
0098: 
00R0: 
00fi8 : 
00E0 : 
00B8: 
00C0 ■' 
00C8 : 
00D0 : 
00D8 : 
00E0 : 
00E8 : 
00F0 : 
00F8 : 
0200 : 
0208 : 
0210 : 
0218: 
0220 : 
0228 : 
0230 : 
0238 : 
0240 : 
0260: 
0268 • 
0270: 


0/8 
0000 
0011 
0206 
020E 
0216 
02 IE 
0226 
022E 
0236 
023E 
0246 
024E 
0009 
0016 
001E 
0026 
002E 
0036 
003E 
0046 
004E 
0056 
005E 
0066 
006E 
0076 
007E 
0086 
00C4 
00CC 
00D3 
00FC 
008D 
00FPI 
0270 
0278 
0083 
00RB 
00E7 
00EF 
00F7 
00RC 
00E5 
00ER 


1 /9 

0001 

0012 

0207 

020F 

0217 

02 IF 

0227 

022F 

0237 

023F 

0247 

024F 

000 fl 

0017 

001F 

0027 

002F 

0037 

003F 

0047 

004F 

0057 

005F 

0067 

006F 

0077 

007F 

0087 

00C5 

00B4 

00D4 

00DR 

008E 

009B 

0271 

0090 

00R4 

00E0 

00E8 

00F0 

00F8 

00RD 

m 

00BB 


2/fi 

0002 

0200 

0208 

0210 

0218 

0220 

0228 

0230 

0238 

0240 

0248 

0003 

000B 

0018 

0020 

0028 

0030 

0038 

0040 

0048 

0050 

0058 

0060 

0068 

0070 

0078 

0080 

0088 

00C6 

00CB 

00D5 

00DB 

008F 

0090 

0272 

0091 

00R5 

00E1 

00E9 

00F1 

0251 

00RE 

m 

00EC 


3/E 

000E 
0201 
0209 
0211 
0219 
0221 
0229 
0231 
0239 
0241 
0249 
0004 
000C 
0019 
0021 
0029 
0031 
0039 
0041 
0049 
0051 
0059 
0061 
0069 
0071 
0079 
0081 
0089 
00C7 
00CE 
00D6 
00DC 
0097 
009D 
0273 
0092 
00R6 
00E2 
00ER 
00F2 
0252 
00RF 

m 

00BD 


4/C 
** 
020; 

020R 
0212 
021R 
0222 
022R 
0232 
023R 
0242 
024R 
0005 
000D 
001R 
0022 
002R 
0032 
003R 
0042 
004R 
0052 
005R 
0062 
006R 
0072 
007R 
0082 
008R 
00C8 
00CF 
00D7 
00DD 
0098 
0096 
0274 
0093 
00R7 
00E3 
00EE 
00F3 
0253 
00B0 
00B7 
00EE 


5/D 6/E 

** 

0203 0204 
020B 0200 
0213 0214 
02IB 0210 
0223 0224 
022E 0220 
0233 0234 
023B 0230 
0243 0244 
024E 0240 
0006 0087 
0013 0014 
001B 0010 
0023 0024 
002B 0020 
0033 0034 
003B 0030 
0043 0044 
004B 0040 
0053 0054 
005E 0050 
0063 0064 
006E 0060 
0073 0074 
007B 0070 
0083 0084 
008E 0080 
0009 00CR 
00D0 00D1 
00D8 00D9 
00DE 00DF 


0099 009R 
009E 009F 


74 


0/ { 5 


0276 
00R0 00R1 
00R8 00R9 
00E4 00E5 
00EC 00ED 
00F4 00F5 
.. etc. 
00B1 00B2 

m %% 

00EF 0000 


7/F 

** 

0205 

020D 

0215 

02 ID 

0225 

022D 

0235 

023D 

0245 

024D 

0008 

0015 

00 ID 

0025 

002D 

0035 

003D 

0045 

004D 

0055 

005D 

0065 

006D 

0075 

007D 

0085 

** 

00CB 

00D2 

00FB 

m 

00F9 

026F 

0277 

m 

00 AR 
00E6 
00EE 
00F6 

** 

00B9 

0001 


Upper/Lower Case Converter 


The following machine language program 
can be used to convert o Id ROM 
upper/lower case to the convention used 
by new ROM PETs. 


LORD and RUN the program below. Then 
LORD the program you wish to convert_for 
operation with new ROMs. Type SVS826 
and well!... all upper case becomes 
lower case and. of course, vice versa. 
SAVE the converted program on tare or 
disk. Now you can LORD arid RUN the 
converted program in the usual manner. 


100 FOR ,T=826 TO 925: READ r 
110 POKE J.fl : NEXT 

130 DfiTR 169.4.133.202.169.1.133..201 
140 DATA 32. 89.3.160.0.196.202.240.13 
150 DATA 177.201.170.200.177.201.134 
160 DATA 201.133.202.76.66.3.96.160.4 
170 DATA 177.201.248.44.201.34.240.4 
180 DATA 200.76.91.3.200.177.201.240 
190 DATA 31.201.34.240.23.201.65.144 


200 

DATA 

243.201 

.91.144. 

3.201.192.144 

210 

DATA 

235.201 

.219. 176 

.231.73.128 

220 

DATA 

145.201 

.76.103. 

3.200.76.91.3 

230 

DATA 

96-255. 

255.255. 

255.255.255 


240 DATA 255.255.255.255.255.255.255 
250 DATA 255.255.255.255.255 



Brett Butler, Toronto 


Vet another of the superb proarams 
brought over the Atlantic by Jim 
Butterfield on the occassion of his ta-x 
visit to England, this Trace nroaram by 
Brett Butler is a very useful tool when 
debuaaina Basic proarams. The whole of 
the line currently beina executed '.not 
j US t the line number!> is displayed m a 
reverse field "window" at the tor of 
PETs screen. 

The rate at which your proaram executes 
durina debuaaina with TRACE, can be fine 
tuned with a SVS command, and SVS 
commands are available for switching 
TRACE on and off. When TRACE is enabled, 
your proaram can be run at appf -ox i mate 1 =* 
one otuarter normal speed by simply 
depressina the "b'HIFT" key. 

This incerdib le machine code proaram 
works actually well in both old and new 
ROM PETs, and will locate itself in 
whatever sized memory is fit-tea. lx wi u 
also sit happily tosether with any other- 
machine code utilities that you may have 
loaded into your PET such as oUFERMUN, 


locatina itself so that the faci lities 
of all utilities are available 
concurrently! 

The “ i nte 11 i aence " bu i It i nto TRACE s> 
locatina routine aives rise to an _ 
Unexpected side effect. If you load and 
run the Basic loader for Trace. 
proaram will aive you the pro commands 

appropriate for your paticular PET-It . 

you ianore the instruction To note +-Mese 
down somewhere, you may need to load ana 
run the Basic loader aaain to remind you 
of them. If you do this a number of 
times you will eventually notice that 
the SVS commands are differerent each^ 
time! A oiuick memory check - 'FRE^n. 
every time you run the Basic Loader 
shows available RAM decreasin'? ran idly! 
What is happenina? The Basic loader is 
locatina TRRCE alonaside its previous 
copy in RAM. Vou have a number of conies 
of TRACE inside the machine each_ot 
which can be activated by the oto 
commands appropriate to its particular 
memory location! If you need the 
"missina" RAM switch off and start 
aaain! 

Our thanks to Brett Butler for his 
permission to reproduce TRACE in CPUCN. 


erf.* pp I HI" IMsMTH IS PROGRAM LOCATES STRACEi IN" 

8 P ppTfJT»flUV SIZE MEMQRV THAT IS FITTED. . .S" 

^ TPPEEk'i:'FSES':'=254THEHD=2 : E=52 ; GOTO70 . riir 

~f~f. t ppPEK f SHE >' ■' <’■• 1A 2 THENPRI NT" ?? I D 0 N"'T KNOW VuUR RUM H -END 
67 D=1 r E=134:FORJ=1TO1E3:READX : IFX<1E4THENNEKTJ 
79 PRINT"I SEE VOU HAVE AN 
711 FD= 1THENPRI NT " OR IGI HAL" .1 
72 IFD=2THEHPRINT"UPGRADE" ; 

7 P pp t NT" R 0 M. " 

QP rifiTft -342. 162 = A, 189,249,224,149,112,202, 16,248, 169, 239,1 88 , 128,96 
m DATA 173,-342,133,52, 173,-341,133,53, 169,255, 133,42,168,8,162,3^__ 

100 DATA 134, 43, 162, 3,32, -271,20-8,249, 202 , 2W8,248, 32, - 2 1, 8 a., a ^ 

101 DATA 121,197,162,5,189,- 6 ,149,112,292,16,248,169,242,133, 128 ,9b 
t m TiOTPj 030, 42, 208,2, 230,43,177, 42,96, 230,119,208, 2, 238, 1 28,96 

103 npTA 32, 115,0, 8,72, 133,195, 138, 72,152,72, 166, 55, 1 65, c4, 19 t 

184 DATA 253,208, 4,228,254,240,186,133,253,133,35,134,254,134,36^165_ 

120 DATA 152,288,14,169, 3, 133, 107, 202, 208,253,136,208,258,198,107,898- _ 
3 36 upTA 246, 32,-54,169,160,160,80,153,255, 127,136,208,250,132,188,138 
153 DATA 37,132,38,132,39,120,248,160,15,6,35,38,36,162.253,181_ 

169 DATA 40,117,40,149,40,232,48,247,136,16,238,216,88,162,2,169 

185 DATA 48, 133, 103, 134,182,181,37,72,74,74,74,74,38,-44,104,41 

282 DATA 15,32,-44,166,182,282, 1 6,233,32,-38,32,-38,165,184,197,119 
221 DATA 248,55,165,195, 208 ,4,133,253,240,47,1 6 ,42,281,855, 80 S ,8 
037 DATA 169,105,32,-38,24,144,33,41,127,170,160,8,185,145,192,48 
2§4 DATA 3,280,208,248,200,202,16,244,185,145,192,48,6,32,-32,888 
271 DATA 208,245,41,127,32,—32,165,119,133,184,104, 168 ,104,1?9,104,49 
-,pp TiRTfi 96.168.173,64,232,41,32, 208,249, 152, 96,9, 48, 197,103 , 288 
304 DATA 47 169,32,208,2,198,103,41,63,9, 128,132,186,32, -54, l€-4 t 182 


60.' 


2MM . 


186 * 96,76 


'922 DATA 153, 8, 128, 192, 195,208,2, 

333 DATA -255,32,-262 

700 DATA 1E10 _ . _ . , 

318 DATA 1737 -343', 133~ 134, 173, -342, 1 33b 135,169, 255^133^ 124/160*0*162 

opS ripTQ7£.! i Pi6 ] to? 1 IS? , 5,189 ■ -6.149,194,282, 16, 248, 169,242, 133, 218, 96 
§48 DATA230" 124*208,27230, 125, 177, 124036,239,281,288,2,^2306202,96 732 

360 DATR228, 73, 249, 107, 133, 7 7 , 133,82, 134,78^134,82, 17:3,^, 2,808, 14, 1&8 



880 00^160,88,153,255,127,136,208,250,132,76,132^4,1^ 

390 DflTO248,160^5,6,82,38,88,lb^^l^- 89;: - 4 ; 88 ^ ^ 
900 DRT0i3b,lb, ^o, db, f ^ "^"4^44 166,88, 202, 16,233 

92* 2910165,75,!97,28 ^TB, Sb, 
938 DOTH208, a, 169,94, , _-0;^ * -*• ;~ < CfB . 14Si1 QO , 48, f., 32 
940 DOT03,200,2083 248,2 W, AU, f fi a . ^ 4 , i7 0 

950 DRT0245, 41,12r, 3*, 1 07.89,208, 

968 DATA 173..64,232,41 2 W 0 , ^4 ■ -j; ; - ?g 153j0 , 

970 D0T02, 198,89,41, b8,9,.l i o. 1 l---,, 

980 DATA2, 160,7,200,132, {b , 1 b4, 1 ^i7 4 &w '' 

1000 S2=F'EEK < E > +PEEK (E+1 >*256 • b 1 =-^+D -,44 

1 010 FORJ=31T0S£-1 

1020 RERBX: IRO=0G0TO1050 

1 030 y=X+S2 : X=I NT '■ V / djt>• i ~-t ->6 

1040 F'OKEJ, 2 : J=J+1 

1050 F'OKEJ, X 

I960 NEXTJ 

1 fi 7 @ PRINT "rid === TRACE =— 
i flS R REMARK : BV BRETT BUTLER, TORONTO 
; 0=.0 ppiNT"«rrO INITIALIZE AFTER LUAD 
1100 PRINT"TO ENABLE TRACE : _ _ 

11 1 fi PR I NT " T0 DISABLE : 8V8 

ii?0 PRINT"'*9CHANGE SPEED WITH' 

__ t ii-.-rtr r'iC c 




i2 ,86,120 
, 48,247 
\ 74^. 74 


, 16,4 

q=; t 1 4 

, 104, 
4, 169 


2,281,255 
5, 192,48 
200,208 
40 ,96 ,163 

92,79,208 


3VS";81+17 
SVS"81+56 

POKE "S1 +125-D j" II, X" 


iiqo p(?iNT"f(N=MAKE A NOTE OF ABOVE CUMMANBb 
1140 PRINT"«SAVE USING MACHINE LANGUHUE MUhl.Uk- 

1150 PRINT" -S ", . 

1160 S=INT <S17256 >:T=S1-b*25b 
1170 F'OKEE, T : POKEE+1, S 

J 1 Q0 t FD=2THEHPR I NTCHRf- < 34 > i " TRACE " i CHR$ < 34 j ;", U1" 

A ~ * 11”.r~. t I i-rii ,r,< -rr.Ljr-c * 

1 1 


l i fd= 1 THENF’R I NT " 01, TRACE" 


1200 8=81 : GOSUB14W0 
19 10 8=82 : GOSUB1400 
1220 PRINT : END 
1400 PRINT" , " • 8=374096 
1410 GOSUB1420 
1420 GOSUB1430 

1 4t-t NT < 9 '< '■ I FTV 8 THENT=T+7 
1440 PR I NTCHR'f < T+48 > • ' 8 = < b -1 h f •, b >) 4-lt F.=_! Jk. \ 
?FRDV. 


100 
1 10 
120 
130 
140 
150 
155 
160 
178 
180 

185 

186 
198 
200 

220 

240 

259 

260 
PPPT!’ 


PR I NT " JKMS 
PRINT"S 
PRINT" 


;l IRERMON! " 

DISASSEMBLER SD5 BV WOZNIAK 7 BAUM 
SINGLE STEP SIS BV JIM RUSSO 
PRINT"MOST OTHER STUFF S,CHAFTB BV BILL bEILER 
F'PINT"'dBLENDEB * PUT IN RELOCATABLE FORM" 

PRINT"' BV JIM BUTTERFIELD" 

P0KE42,182 : P0KE43,6 : CLR 

L=F'EEK < 52 > +PEEK i 53 > *256 

N=L-1 466 : F'=3391 : FORJ=L- 1 TOHSTEP -1 

X=PEEK<P> : IFX>0GOT0190 

p-p _9 ■ v = pcct:-' (p +1 •; +RFEK£P > *256 : I FN=0GOTU 190 
y=v+L-65536 : N-;=X7256 : X=X-XX*256: F'OKEJ, XX: J=J-1 
POKE T, : P=P-1 : PR I NT" S3"; X; " II " ; NEXTJ 
XX*N/256': V=N-XX*256 : P0KE52, V: P0KE53, XX • P0KE48, V ' 
pr i nt" n?LINK TO MONITOR — SV 8 ",N 
ppt'nt:PPINT" 8 RVE WITH MLM : " 

print". S "; CHR$<34>"SUPERMON"CHR$<34)", 01" : > 

X=L74096 : GOSUB250 : END . _ , 

PR I NT " , " j : FOR J=1T04 : XX=X : X= < X-XX >*16 : IF XX79THt_N. ! 

PRINTCHR# < XX+48 >; : NEXTJ : RETURN 


POKE 4!? .< 


: GOSUB250 



ig PPM SUPERMON INSTR 
ii 00 GOSUEi08@0 

j200 PRINT"MSS SIMPLE ASSEMBLER 
1 :~*80 PRINT "SI. SR! 3E0001 SLBAS S#fl2 
1310 PRINT"-fl 2002 SSTflS S$8000.'X 

1320 PRINT".A 2805 SKRETURN) 

1930 pR'TNT". 

1940 prtk|T" IN THE ABOVE EXAMPLE THE USER 

i : 3H0 PRINT "STARTED ASSEMELV AT 1000 HEX. THE 

1 2,;-3 PRT KIT "FIRST INSTRUCTION WAS LOAD H RcUiSTtR 
1370 PRINT"WITH IMMEDIATE 12 HEX. IN THE SECOND 
1330 PRINTLINE THE USER DID NOT NEED TO TVF'E iHE 
1390 PR I NT "A AND ADDRESS. THE SIMPLE _HbSEMBLE.R 
1400 PRINT"PROMPTS WITH THE NEXT ADDRESS. iU _E«IT 
1410 pp t NT "THE ASSEMBLER TVPE Fl RETURN AFTER iHE 
1420 RPINT"THE ADDRESS PROMPT. SYNTAX IS THE SAME 
1430 PRINT"AS THE DISASSEMBLER OUTPUT. 

1450 GOSUB9000 

1 FIA 0 PR I NT" ®®?I?353 CALCULATE BRANCH " 

1510 PRINT":?]. SCS SI 0001 SI 0101 0E __ 

15 eg PRINT"® THE EXAMPLE CALCULATES ihE SEL-UND 

1530 PRINT"BYTE OF A BRANCH INSTRUCTION, _THh__ 

* PRINT"BRANCH OP-CODE IS AT 1000 HEX AND THE 
PRINT "TARGET ADDRESS IS 1010 HEX,, SSUPERMON 


1540 
1 550 


1560 PRINT"RESPONDED 
1570 GOSUB9000 
1600 PRINT"MSS DISASSEMBLER 
1610 PR I NT " ®. SO* 5320005 
1620 PRINT"®<SCREEN CLEARS) 


,jjTH THE 0E HEX OFFSET’ 


1639 

PRINT". 

2000 A9 12 

LDfi 

1648 

ppT NT ". 

, 2002 9D 00 80 

3TR 

1650 

PRlNT", 

2805 AA 

TRX 

1660 

PRINT", 

2i.-lt.1b HH 

T RX 

1670 

pr 1 NT"< 

pi ij 1 'pftOE OF IN3TRL 

run 

1780 

PR I NT":? 

' " DISASSEMBLES 2 

2* IN 

1710 

PRINT"£ 

TARTINO AT 1806 HEX 

3 : 


1 *7 o n p p IH T n F 0 L L 0 NIN U THE H X* D F! c. d S 
1730 PR I NT "USE THE CRSR KE'-"- Tr > f; 
1740 PRINT"THE BYT 


: , 


#$12 
*3000,X 


TRUST I Of 

c -pppR 

: 'V BE MOIL 

n jii T, 


m 


PTiiRN ANI 


1750 PRINT”IN MEMORY NIL 


17g0 print"WILL THEN 
1790 OOSUB9000 
1300 PR I NT"®?3E3 SINGLE STEP 
1810 PRINT":?]. 531 
1S20 PRINT"® ALLOWS A i 
1330 PRINT"TO BE RUN STEP 
1840 PRINT"MCALL REGISTER 
1850 PR INT"THE PC ADDRESS 
1 360 F'R I NT" INSTRUCTI ON FOR 
1370 PR I NT "THE .5-311 WILL C 


BE LHANGED, 
iSEMBLE THAT 


Hh 


••'Hh'F 


i 

IF1ED. 

"modify 

E pm OH IS 
9f;R T ki.. 


MACHINE 


L ANOUHuL KKUURAM 


DISPLAY 

WITH . SRM AND SET 

TO THE 

DESIRED FIRST 

SI HOLE 

"stepping. 

AUSE A 

SINGLE STEP TO 

l"disas 

SEMBLE THE NEXT. 


1890 PRINT"MCONTRQLS : 

1900 PRINT" SKI FOR SINGLE 
PRINT" SRVS1 FOR SLOW 
PRINT” S3SPACE! FOR 


1 910 
1920 


STEP) 

STEP; 

__ AS! stepping; 

1930 PRINT" 535TGPS TO RETURN TO MONITOR." 

1990 GOSUB9000 

2000 PRINT":?M®53 FILL MEMORY, " 

9010 PPINT"'?I?3. sFB 5318001 S311001 dFF 

2028 PRINT":?] FILLS THE MEMORY FROM 1000 HEX TO 

2030 PRINT"1100 HEX WITH THE BYTE FF HEX. 

9090 Ansi JB9000 

2100 PR I NT" :?M?353 GO RUN " 

2110 PRINT":?]. S3G 

7120 PRINT"® GO TO THE ADDRESS IN THE F’U 
2190 PRIN T "RFGISTEP DISPLAY AND BEGIN RUN CODE. 
2140 PRINT"ALL THE REGISTERS WILL BE REPLACED 
2150 PRINT"WITH THE DISPLAYED VALUES." 

2160 PRINT"®. 5-3G! 531000 

2170 PRINT"® GO TO ADDRESS 1800 HEX AND BEGIN 
2188 PR I NT "RUNNING CODE,, 

2190 nns!' b 9 000 

2200 PRINT"®®®S3 HUNT MEMORY " 

2210 
722 m 


PRINT"®.. 53H* 

”300001 ®D0 

901 SKPtfiD 



pp t kit " ® 

HUNT THRU 

■lEMOF'V FROM C@08 


TO 

PRINT"D000 f 

■!EX FOR "HE 

ASCII STRING SR 

Pfllj* 

qND 

pp t kit 11 pp t NT 

9 Pj p i-j p! 5 i P R 

9 where it is fo 

IJND. 

A 





ppTijTirji muht MEMORV FROM uyyy lu iiyww 
■•r-ofi DD T f.jT >' ycy p";p TUp "EQUENCE OF BV~E3 20 TJ2 
Opp pp t nt■'PHD PRINT 'THE"rIQRESS. s MAXIFUN OF 32 

'■9 0 Q o c l j B y Q @ 0 

0 p p t y t "'?]3 L 0 H I 1 P F. 0 M 2 H F 4 ’ 1 
>401 p p j i t " ? 1?1, * 

pp.TMT" »n 1 iPi3 -ihiy P- pnMpiAM FR’jM LHSoLT 1 c. HI * 

: .ipo 'pptmt'«•*!« “ 4.* 3" : OHP:f 3 841 ; M RRM TEST" CHRT<34 ) 

;404 PRINT"'® " "LORD FROM CASSETTE #1 THE PROGRAM 
; : 4PT PPINT^PAMED SRAM TESTS. 

'•din pptwt h '*t*i -SL* “i :> : 0HR$i:34>; "RAM TEST"CHR-f 0343 .< “ .• C 
>4-?| PRINT"M'* ‘LOAD FROM CASSETTE #2 THE PROGRAM 
2430 PR iffT"NAMED SRAM TESTS, 

" 4 y 0 o o s U B 3 8 $ 0 

2500 PR I NT" MS!Si MEMORV DI SFT...RV " 

'• 5 1 0 p P I i,| T 1 ' H1 m $0000H gj@ 0 8 0 

23pg PRINT"®. : 8000 0@ 01 82 83 04 05 06 0? 

2cro,-., pp t NT". : COOS; @8 09 yfi 0B OC 0D 8E 0F 
on-40 pptk;t u 'si TiJSP' RV MEMORV FROM 8080 HEX TO 

TOJ-fi ppr kit 11 repress MAV BE MODIFIED BV EBIT I MO AND 

-3p,r t 3pi MT" REGISTER DISPLRV " 

0 pp'-rpT" («, ;jp 

p.p - iT-i :::*p f a] C ; f TPO yp PC ;1 [■" RK 

- pp:*•j..jT" ooi'iR R42F 01 82 G3 04 05 

23 2, P r, ;j -T-,, ?] - f . I ppf Pi vs " THE RE013TER VA! _ UES 3RVEB 

2 3-2 ppT^T»i,f|4FN aSUPERMONS NAS ENTERED. THE VALUES 
pp T N'T"M py br CHANGED WITH THE EDIT FOLLOWED 

- p - Cl p p T VJ T ' 1 '£ 1 r 1 H R E T U R N . 

23-3 pptnt"2;: !!s’e""thIS INSTRUCTION TO SET UP THE 
pc t hip*”rp“■ ppj i ip pppore TINGLE STEPPING UITH" 
PRINT" . SIB 

''flH Op T KiT " 'SjflBljj SAVE TO TAPE " 

2-11 2 op ; h ; T „ : Bl '2jp W ' .jii : PRPf. 34 ; » PROGRAM HRME " CHPT < 34 > 
2-3,2, prtnt"® SAVE TO CASSETTE 41 MEMORV FROM 
-•-■BP print" 0808 HEN UP "10 BUT HOT IHCLLDIHO 8C38 
i~'40 PRINT "HEX "AND HRME IT ^PROGRAM NAMES. 

- - q g p q p jjpci g g g 

2800 PRINT"'?MsM£l TRANSFER MEMORV " 

-p-‘p PRINT"’??. ITT® :31A00S SI 1 ©OS 135008 
TpSp, ppiNX"®’ * ~ TRANSFER MEMORV IN THE RANGE 1000 
-opp PR I NT "HEN TP 1100 HEN AND STFiRT STORING IT AT 
3340 PRINT "ADDRESS 5000 HEN,, 

- p y Pi g 0 S’ U E 9 0 @ 0 

2200 PRINT"SSlSS EXIT TO BASIC " 

3210 PRINT":??. SN 

~1-, pp t hi T " s’ RPTi if?N Tfi v .p 3 T f; ppp TjV M0 Jj F „ 

-:v-g PR I NT "THE STACK VALUE SAVED WHEN ENTERED WILL 

- pig print "BE RESTORED. CARE SHOULD BE TAKEN T-- , AT 
325© PRINT"THIS VALUE IS THE SAME AS WHEN THE 
3260 PRINT"MONITOR WAS ENTERED, A CLR IN 

3270 PRI NT"BASIC WILL FIX RNV STACK PROBLEMS. 

.32 3 6 0 0S U B 9 O 6 8 

3500 PRINT".'! 3UMMARV " 

3505 PRINT"COMMODORE MONITOR INSTRUCTIONS : " 

3510 PR I NT "3GB GO RIJN 
3520 PRINT" SLS L.OAD FROM TAPE 
3530 PRINT"SMS MEMORV DISPLRV 
3540 PRINT" iSRS REGISTER DISPLRV 
3550 PRINT" 2BS SAVE TO TAPE 
3§S0 PRINT" S3S EXIT TO BASIC 

■>5:1:0 pp t KiT" »|_ss i nyij ppQM TAPE 

3830 PRINT"’??:*® SIMPLE nEGEMBlER 

- p : 0 p p t w r • • ;£ m C A! _ CIJ L i" 1 T E 3 R A1 ; C H 
■02O PPTMT" ;©« DI 3ASSEMBLER 
3630 -PIMT" ;F« j ;j_ -••‘Er-'GRV 
-4-40 RRI’-'IT" "l-i?® !-Ui ,T ■yr-hjPM 

” 4-0. pc t v,iT M -jr SB ■ : r i-|-,i c : r 


IF:OR , 0080" 







3660 PRINT" STB TRANSFER MEMORY 
4000 HOSUB9000 

4010 PR I NT " HSSUPERMONB WILL LOAD ITS 
4020 PRINT"TOP OF MEMORV .. WHEREVER 
4930 PRINT"TO BE OH YOUR MACHINE. 
4040 PRINT”'*3 YOU MAY THEN SAVE THE 
4050 PRINT "FOR FASTER LORDING IN 
4060 PRINT"SEE SURE TO NOTE T HE SVS 
4070 print "LINKS SSUF’ERMONi TO T-T C 
40S0 PRINT"MONITOR. 

5000 GOSUB9000 
R 000 GOTO 1208 
9090 PRINT'S 

’--10 i 0 FOR T = 1 TO 10 : GETFiT : NEXT 
9020 GETfit- •' I Fflf=" " THEN9020 


10000 PR I NT "12 t 

10010 PRINT"MCOMMflNDS 
18040 RETURN 
READY. 


U P 

i ippp 


INP 




VHP 


r! : I 

OMI’ 

iMMf 


8 


m u 


Programming 


HOT TIPS 

Paul Hickinbotham 


First I a'ouId like to answer some 
frequently raised questions -about screen 
■formatting of data., and then take a look 
at a -few techniques to make programs 
sma 1 ler and more e lea-ant . 

For matt in-a numbers on the screen can 
cause problems when the TAB function is 
used. If a number is to be printed 
within a box., then it would be nice to 
ensure that the last di-sit of the number 
always touches the right hand side of 
the box. 

For example, if the number is simply 
TABbed into the box., and the number is a 
"0"then it will appear- at the left 
hand side of the box., which doesn't look 
eery smart. It is therefore necessary 
to use the length of the number (. i. e the 
number of disits including decimal 
points) to drive the TAB expression. A 
number has a leading space and a 
trailing cursor right which needs to be 
taken into consideration. The LEN 
function counts the number of characters 
that there are in a string. In order to 
use LEN it is first necessary to convert 
the number into a string variable using 
STRT. The number of characters in the 
number is given by - 

X=LEN < STRf < A > >-1 

- where A is the number. 1 is 
subtracted to take account of the 
leading space. So now., taking the above 
ex-amp le.. if we were to TRB<11-X) we 
wou Id be in business! 

Sometimes it is desirable to tack 
leading zeroes onto integer numbers 'lie. 
to display "0038" rather than "38"), but 
this is a little more tricky to program. 


Let the number be _S. Let S$ be the 
string version of S with leading zerues 
then 

3$=RIGHT*<"0800"+MID$<STR$<S>, £> , 4> 

MIB$<STRT-(S>..2) converts S into a string 
without the leading space since it takes 
the string version of S from the 2nd 
character onwards. Then the four- 
rightmost characters of the string of 
zeroes Plus the shortened string version 
of S are concatenated to form ST. 


# # * 


Programs can be shortened a greilt deal 
with a little thought and an active 
imagination. For example it is often 
necessary to set a flag if a condition 
is met or to compliment the flag. The 
usual code for complimenting a flag is : - 


1200 IFG=0THENG=1:GOTO1220 
1210 0=0 
1220 . 


On consideration., the statement - 


12000 = 1-0 
1220 .... 


- will be seen to have the same effect. 


* * * 


The two programs which follow are 
further ex-amp les of compact coding. 







The *irst is a. screen dump routine which 
makes it possible to copy the screen 
onto the printer at any time. For 
sample a graphics display or, the screen 
can foe transformed into hard copy by 
means of a GOSUB to this routine. 

When a. screen dump is performed it is 
necessary to read the screen, and then 


turn it into a. printable format. The 
easiest way to read the screen is to use 
the PEEK command, but the printer 
requires ASCII codes which are different 
from PEEK,-'POKE codes, and so a 
conversion is necessary. Now this can be 
done by a series of IF THEN statements 
but the result is rather horrible. 


5 REM CHARACTER SET 

6 PRINT":]" 

10 FQRI=0TO255:P0KE32768+I,I:NEXT 

15 PR I NT" 3SBWKWW" prril nr , llT * * ... 

50 REM # * # QUICK AND DIRTY SCREEN PRINT * * # 

100 0PEN4 , 4 : PR I NT#4 " ■ OPEN J ,4,6 _ . 1— _ t _ * t,-. < a • fiPTOt • ucvT 

102 PRINT"W10RMAL LINE FEED OR CLOSED UP? SN5 OR SCS FORI 1TO10■GETA*•NEXT 

103 GETfl#:IFfi$=""THEN103 

104 N=18 : IFA$="N"THENN-24 

105 PRINT#3,CHR$(N) 

110 FORI=0TO99S* 

130 P=PEEK ( 32768+1> 

134 GOSUB500 

135 IFP<64THENP=P+64:GOTO200 

140 IFP<126THENF-P+128:GOTO200 
145 IFF'-C128TH£NP=P+64:GOTO200 
150 IFP<191THENP=(P-64) : GOTO200 
155 IFF‘=255THENP=191 : GOTO200 
200 PRINT#4,CHRt( P >; : 

220 X=M+1 = I FX=40THENPR I NT#4, " " : X=6 ' F=0 


240 NEXT 

250 PRINT#4,"" : CL0SE4 
255 PRIHT#3,"" : CLOSES 
300 END 

500 REM REVERSE FLAG 
510 IFF=1ANDP>127THEN600 
515 IFP? 127THENF= 1 : PR I NT#4, " SI" i =GOTO600 
520 I FF=0ANDF'< 127THEN600 
530 IFP<127THENF=0 = PRINT#4," S" ; ; GOTO600 
600 RETURN 
READY. 



NORMAL LINE FEED OR CLOSED UP? !i OR ft 


Line 10 prints out PET'S upper case and 
graphics character set onto the screen 
to provide some test characters. It 
should be omitted when the program is 
used in "real life". Line 15 can have 
tine number of "cursor downs" adjusted so 
that the "Normal line feed... " prompt 
in line 102 does not overprint a crucial 
area of the screen. In a situation where 
the whole of the screen is important 
this part of line 102 should be removed 
a1together. 

The main code conversion routine lies 
between lines 110 and 248j the 
subroutine 500-600 deals with reverse 
field characters.' lines 100—105 allow 
the user to c lose-up the line feed 
£ useful when pp - inti ns y r eP’ h i c -c , line—- 
250, 255 ensure the printer buffer is 
emptied at the end of the program. 

Now let's have a closer look at the 
differences between PEEK/F'UKE codes and 
ASCII. If one considers the binary 
Uppresentations of a. number of different. 


characters it will become apparent that 
only the 3 most significant bits (bits 
5,6,7) are changed. "Aha, a bit of 
BOOLEAN ALGEBRA will solve this 
problem!" Using the OR and AND functions 
it is poss ible to convert PEEK/'POKE 
codes to ASCII in Just one statement. 

Thus if A=PEEK(32763) (the tor left 
hand corner of the screen), then - 

B=(AAND128)OR((AAND664)*2)OR((64-AA 
ND32)*2) 

- where B is the corresponding ASCII 
code. 

The next matter to take care of is that 
the screen is 40 characters wide arid the 
printer is 80, so it is necessary to 
check when 48 characters have been sent 
down to the printer arid then to do a. 
carriage return. This can be done by 
considering the screen as a. thousand 
address locations between 1 -arid 1080, 
then looking at the particular screen 



address and see in-3 if it is divisible by 
40. 


Here's the new program - 


J‘ :PRINT#4, "■ 


10 0PEN4 .■ 4 : PR I NT#4 .• " 

■-•0 t= 4P : FOR I =32768T033767: A=PEEK( I ) : B= 
(PANE127 > OR <( ARND64 ) #2 )OR (64-AANE32)#2) 
30 PR I NT#4, CHRf ( B ) i '■ IF ( I -3280 < )/T=INT( 
i-32807) /T >THENPRINT#4. . “I "CHR$a3>" "J 
40 NEXT : PR I NT#4.." ‘ 


: CL0SE4 


REfiDV. 


The lines are there to rut a box around 
the display. 


This routine will not output RVS 
reverse fie Id) characters as RVS but 
this can be fixed because RVS characters 
have a PEEK/POKE code greater than 127 
and so ARNE128 will be 128 if the 
character is in RVS and 0 if not so i+ 
before each character we output 
CHRf<146-AANB128) this will put out a 
RVS OH character if the character is in 
pvs otherwise an OFF RVS will be output 
tn’counteract any RVS ON's that had been 
printed. (Once the RVS has been switched 
on it stays on until the next carriage 
return.) The only bug I have observed 
with this fix is between quotes (the ON 
and OFF RVS symbols are printed 
literally)/ but this can be avoided by 
remembering the position on the line and 
doing a carriage return without line 
feed - CHRf(141) (which gets you out of 
coyotes mode *' .- 1 .* and return i i ng to the 
same point on the line arid continuing. 


I hope that this whets your arretite for¬ 
do ing some exp loration of youi-■ owt- 1 ■ If 
you do .■ then p lease send your 
discoveries to the editor so that we_can 
all share them via the medium of CPUCN. 


My final program has no application 
apart from fun., but if there is anyone 
holding a raffle then this might be a_ 
good item in similar context to -'GUESS 
THE WEIGHT OF THE CAKE' ETC.. It is a 
F'SEUEO ABACUS or bead counter = - 


By using the symbols-#' w® 

can make the bead appear to move along 
the line : - 



To make the initial display-- 


m -* 

m*- - 

m£m - & 

mm** -& 

mm*** -* 

mmrnrn - ® 

i########-^ 

mm****-** -& 


10 PR I NT " <c lr> ABACUS : - : FOR^ITO^FFJN 
T"l" : FORJ=1T0I : PRINTCHRf(20y.'.. ■ NE*TJ 
20 FOR J= IT022 : PR INTCHR (192 > ; NExT J ; FRI 
NT"1" : NEXTI 

The next job is to create an array with 
the POKE addresses of the mid points of 
each row : ~ 

30 FOR I=1T09 : F' (I)=33179-1 #40 : NEXT 

Using variables instead of constants 
gives a. faster execution time - 

40 Q=12 : B=9 : E=102 : L=64 : B=81:R=13 ; X=14 : 

C-1 


E = EEGE POKE COEE OR THE i SYMBOL 
B = BEAD CODE 
S = STARTING ROW 
L = LINE CODE (BAR OF ABACUS) 


The routine uses a scanning technique 
that scans from the middle of the bottom 
row moving left until it finds something 
that is not a line. If it is a bead.- 
then it rushes that bead along the bar 
until that bead hits something that is 
not the bar (either the right hand edge 
or another bead).- but if it is the left 
hand edge then it knows that all the 
beads have been moved over to the right 
hand side and so it moves then back to 
the start and tries to move one bead of 
the next row up along using the same 
scanning techni*iue. When a full scan has 
finished it returns to the bottom row 
and starts again (It really is difficult 
trying to explain this, but the idea is 
not that difficult.) 


Here's the complete program listing - 


100 PR I NT " <c Ir > ABACUS •' - " : Q=12: D=9 
105 E=102 : L=64 ; B=81:R=13=X=14:S=1 
110 FORI=1T09 = PRINT"#"; ; FOR J=1T0I 
120 PRINTCHRt(209); : NEXTJ 
130 FORJ=IT022:PRINTCHRf(192); : NEXTJ : P 
PI NT "IT : NEXT I 

140 FOR L=1 T09 = P( I ) =33179- 1 #40 : NEXT 
150 C»S=REM"SETS ROW TO 1" 

160 F-F'CC) : REM 11 SET SCAN LINE POS'N" 

170 IFPEEK(P)=LTHENP=P-S : GOTO170 
180 IFPEEK(P)=ETHEN210 
190 POKEP.- L: P=P+S = POKEP.- B ■' I FPEEK ( P+S ) = 
LTHEN190 
200 GOTO150 

210 T=D-C : FOR I =STOX+C-S = POKEP ( C)+R-I.- L 
: POKEP ( c: ) +Q- I-T.- B : NEXT : C=C+S : GOTO 1 60 

One thing I found is that the beads move 
very fast .- if you wish to slow them 
down you can add in a. delay loop in line 
190 • — 

190 POKEP.- L: F-P+S = POKEP.- B : I FPEEK (P+S)= 
LTHENFORI=1TO20 : NEXT•GOTO190 


I will leave you with a final puzzle - 
how long will it take before the tor 
0 3.d moves 













For/lMext Loop Structures 


Jim ButterfieId 


Recent remarks on popular Basic 
implementations indicate that 
difficulties may be encountered if the 
programmer Jumps out of a FOR/NEXT loop. 

This would be very serious if true. The 
programmer doins a table search would be 
required to continue scanning the tab le 
even after find in-3 the item he wants; or 
to use questionable practices such as 
meddlin-a with the loop variable while 
still within the loop. 


Fortunately.- it's true only for a few 
complex situations - and these are easy 
to fix if you understand how the dynamic 
FOR/NEXT loop works. <Dynamic loops are 
those set up durin-3 an actual program 
run.- as contrasted to pre-compi led loops 
wh i oh are -checked out before the a.ctua. 1 
run star 1 ts>. 


When a dynamic interpreter such as 
Microsoft Basic., encounters a. statement 
such as F0R=J ... it sets up internal 
tables to manage the loop. These 
internal tables contain such things as- 
where to return if a. NEXT J is 
encountered,.' the identity of the loop 
variable (in this case.. Jj; whether the 
loop is counting up or down., etc. 

These tables will remain until one of 
three things happens. If the loop goes 
through its complete range (.by 
encounterins a suitable number of NEXT J 
statements J; if a. new FUR J statement is 
found; or if a. higher priority loop is 
terminated for either of the previous 
reasons. 


The last rule is very sensible., and it's 
worth a closer look. Suppose we have 
set up a. sequence of commands sue hi as ; 
FOR 1= ... : FOR J= ... : For K= ... .. 
and suppose the computer., whi le deal in-3 
with these three loops., finds a new FOR 
1= ... statement. It very wisely says., 
in its own computerese.. "OK - looks like 
the bis loop is beins restarted! so the 
little ones are finished., too", find it 
promptly terminates the J and K loops., 
removing the tables from its memory. 


time he Jumps out of a loop.- the loop 
tab les remain in memory., us in-3 up 
valuable stack or table space. He'd be 
much better off to 3ive at least his 
outer loops the same variable name., and 
reclaim that space. 

The second problem spot is a little more 
subtle., and an example would best 
i 1 lustrate it. 

Here's a simple proar-.am to input a. 
string.. extract the individual words 
( e 1 i m i nat i ns s i na le or mu It i p le spaces > .• 
and print them : 

100 INPUT Sf <set the string 
110 K=1 (mark start-of-string 

120 FOR J=K TO LEW(ST) 

130 IF MID$<S$,J.. 1)0" "GOTO 150 
(skip spaces 

140 NEXT J 

150 IF J>LEN(Sf> GOTO 900 
160 FOR K-J TO LEHCST) 

170 IF MIDT<St..K. 1 >=""GOTO 200 

(scan to space or end 

180 NEXT K 

200 PRINT MIN$(S$,J,K-J> 

800 IF K< =LEN(S$) GOTO 120 
900 END 

This program works quite well., and isn't 
hard to follow. It should be noted that 
if either- the J or K loops run to 
comp letion > the variables will have a 
value of LEN<3$>+1; this is intended and 
allowed for in lines 15U and 800. 

Before we extend this program into 
catastrophe.. let's note one thing 1 by 
the time the program reaches line 200.- 
both the J and K loops will still be 
open most of the time — we "jumped out" 
of both of them. No real problem; when 
uje go back to 120.. the new FOR! J = . . 
will cance 1 them both. 

Now let's get into trouble. We may be 
writing a. little ELIZA here., and want to 
check the word we've found against a 
tab le of keywords so as to pick a 
suitable reply. We'll assume a tab le of 
twenty keywords > and start to bui Id a. 
search loop. Replacing line 200.- we 
start a new 1oop : 

200 X$ = MIIKST.. J.. K-J) (get word 
210 FOR I=1TO20 


Exactly what we want - taut there are a 
couple of hidden "sotchas" that the user- 
must know about when he gets into tricky 


cod i n-g rout i nes. 

The easiest one to spot is the situation 
where every -loop has a. different 
var i at 
FOR fl, 


Our loop is now three deep - J and K are 
still considered active-., remember? No 
problem with three—level loops; we're 
sti 11 OK. 
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Thi+.=.hle of 20 words is really a 
double table. It contains pairs of 

■ _ -L- -- ii t " "vrii I". or MV ' 
words SUuri as i •' TUI- ur ut . 

"VOUR". To make our computer talk we 

must snot a word from either column., and 

switch in the word from the_opposite 

column (so that "I HAVE FLEAS" will 

become "VOU HAVE FLEAS"::', bo we need 

one more loon to search over the tuio 

columns. 


Let's be clever arid use J.. since we have 
decided that it isn't needed any more at 
this point. We code : 


220 FOR J=1 TO 2 
230 IF XT=TT(I,J> 
TO 400 
240 NEXT J 
250 NEXT I 
400 print XT.;"".; 


THEN XT=TT(I,3-J) : GO 
< swap word 

(r e p e at w o r d 


Suddenly everythins stops workins and 
the world tumbles down .around our 
program. What happened? 


Let's stop and analyse. Just before 
executing line 220 j the computer had 
three active loops with variables J..K 
and I. Now it reaches line 2L0.■ and 
what does it see? A_ loop based on J, 
the "biggest" loop! So what does it dur 
It cancels the K and I loops., of course., 
.and starts, a new J loop. 

When we reach line 250.. the computer 
sees NEXT I - but it no lonaer has an 
active FOR I = loop.- and you aet a HExT 
WITHOUT FOR error message. 

The rule here is slightly more complex., 
but not too touah. If you use J as an 
"outer" loop variable.. never use it for 
an inner loop’. If we reversed I and J 
in the codina from 210 to 250, we'd have 
no problem. Try to think in terms of 
the hierarchy of loops, and you can make 
sure that a aiven variable is used only 
at its proper hierarchal level. 

Let's try to put the rules toaether and 
create a tiny ELISA, polishina up some 
of the codina as we ao. Vou' 11 have fun 
addina your own features to it. 

100 dim TT( 1,4) (two by five array 
11 0 DATA ME,VOU,I,VOU,MV,VOUR,AM,ARE,M 
VSELF,VOURSELF 
120 FOR J=0 TO 4 
130 FOR K=0 TO 1 
140 READ TT(J,K ’) 

150 NEXT K 
160 NEXT J 
170 INPUT ST 
ISO K1=1 

190 FOR J=K1T0LEN(ST) 


r petsoft programmers 

TOOLKIT 

"10 POWERFUL NEW COMMANDS FOR YOUR PET!" 

The Toolkit is a machine language program which is 
provided in a 2 kilobyte ROM chip. Just plug it in — no 
tools are necessary — and your PET's BASIC has 10 new 
and very useful commands: 

AUTO Provides new line numbers when you are 

entering BASIC program lines 

RENUMBER Renumbers your BASIC program, including all 
GOTOs and GOSUBs 

DELETE Removes groups of BASIC program lines 

FIND Locates and displays the BASIC program lines 

that contain a specified string 

APPEND Adds a previously SAVEd program to the one 
currently in your PET 

DUMP Displays the names and values of all the variables 

used by your program (excluding arrays) 

HELP If your program stops due to an error, HELP 

displays the offending line and where the PET 
detected the error. 

TRACE Asa program runs, the last six line numbers being 

executed are shown in the upper right corner of 
the PET's screen. 

STEP Executes one BASIC line and stops. Pressing 

SHIFT executes the next line. The line number 
is displayed in the upper right corner of the screen 

OFF Turns TRACE or STEP off 

For the new 16K and 32K PETS, the tool kit consists of a single ROM chip 
which plugs into the left most empty socket inside the PET. Price £55 plus 

F^SK and other old ROM' PETs a small printed circu't board is attachedto 
the memory expansion and 2nd cassette ports of the PET. Price £75 plus 
VAT. Also available for 8K PETS with new ROMS. Please state 

configuration when ordering. 

flCrPEtSDft Telephone 021 455 8585 Telex: 339396 m 

Radclyffe House. 66-68 Hagley Road. Edgbaston. Birmingto 


'200 IF MIDT(ST,J,!>=""THEN NEXT J 
210 J1—1 

220 IF J>LEN(ST> GOTO 900 
230 FOR J=J1 TO LEHCST) 

240 IF MIDT(ST,J,1>O""THEN NEXT J 
250 K1=J 

260 XT=MIDT(ST,J1, K1-J1> 

270 FOR J=0 TO 4 
280 FOR K=0 TO 1 

290 IF TT(K,J)=XT THEN XT=TT(1 -K, J> •' GO 
0T0 320 
300 NEXT K 
310 NEXT J 
320 PRINT"".: XT.: 

330 IF K1OLEN(ST>GOTO 190 
340 PRINT "?" 

900 GOTO 170 

Note that the outermost loop is now 
always called J, the next down always k. 

I've tightened up the array to use the 
zero rows and columns to save memoryI 
and the search loops are a little 
faster. 

Even though the program is riddled with 
premature loop exits, there are no 
problems. Just observe a few simple 
rules and you will have efficient and 
trouble—free loops. 



One or -two of you have expressed concern 
in" the past about the oiuality of the 
pre-recorded cassettes that we send out 
from Commodore. We 11.' your worries- af e 
0 yer. Cassette duplicating is now beins 
done for Commodore by a. company cal led 
Audiogenic from Berkshire. The quality 
of the first batch received from them 
has been superb., and as from January 
1st., all tapes from us will have been 
recorded by Audiogenic. 


Their Director.. Martin Maynard., takes- up 
the story 


Before going into detai !.• may I 
introduce myself as Martin Maynard of 
Audiogenic Limited situated in Readins. 
My company was called in to duplicate 
and package the cassette based software 
produced by Commodore. Although 
fludiosenic has dup1icated music 
cassettes for the past five years., 
digital tapes are someth ins new to us.> 
and fortunately.. I was ab le to call upon 
my past experience in the 
data-communications industry. The 
cassette deck contain ins moo ins parts., 
is probab ly the weakest part of any 
microcomputer system., and likely to be 
the first area upon which suspicion will 
fall when difficulties in load ins a. 
prosramme are experienced. With this in 
mind., it will be of interest to PET 
users to know how the sisnal is recorded 
on tare and to what lensths Audiogenic 
sees to., to ensure the entire range of 
PET Pack Softwre will load first time. 


PET o- ele-j? deck uses dft 
unequalised recordins method to place 
data on tare., by switch ins the direct in 
of current throush the record head 
saturatins the tape either nesatively or 
positively. The encodins scheme uses 
three distinct full cycle pulses (see 
fis. !),. a data zero or one is 
represented by a. pair ins of a short and 
a Ions pulse. If the shorter Pulse is 
first.- the pair is considered a. one. 

The byte market provides reference for 
byte identification. (See fis. 2>. In 
the playback circuit the recorded sisnal 
p- asses throush equalisation and squaring 
circuits., thus losic level sisnals are 
presented to the PET. The PET measures 
between nesative soins edses of sisnaIs 
and decodes the data from these 
measurements. 


When we are duplicatins tares., we have 
to be very conscious of the slew rate of 
our nesat ive so ins pulses., as it will be 
seen that if the slew rate is slow, 
there is a larger area of indecision 
presented to the squaring circuits whose 
threshold is set about the zero crossins 
point of magnetic flux on tare. After- 
tapes have been duplicated, they are 
subject to quality control procedure, 
every one in six tares is checked usins 
Commodore"s "Tare Graph 21S". This 
programme is loaded in the normal method 
and when running, examines a sisnal 
being received on cassette port one. and 
measures the timing between negative 
soins pulses and displays the results on 
the screen as a bar graph (See fis 3). 
showing up -any nasties that may be 
occurins. with the timing due to uneven 
tare speed, dirt in the capstan, dirty 
head and spurious noises, all of which 
affect the timing on a tare. 

Out of each batch of sixty tares one 
tare has all its programmes loaded, and 
the "PRINT PEEK (630) ST" test is used. 
(See owner's Manual}, this must give a 
0-0 reply. If all the samples pass this 
test that batch of tares is visually 
inspected and packaged. If any f-ailures 
are detected, the entire batch is 
rejected. Listening to a PET tape on 
your hi-fi set also revealing, lack of 
hish frequency content will indicate 
dirty or magnetised heads, arid speed 
variations can be detected as overall 
pitch drifting. 

It should be stressed that whilst we 
take great care in producing "Work first 
time Software", the system is only as 
goodfd as its weakest link, which is the 
cassette deck. and the user shou Id clean 
arid demagnetise both the heads on the 
deck at least every five hours of 
operation. Heads are best cleaned with 
cotton buds and alcolhol. and the 
capstan Pinch roller should be cleaned. 
Do not rely on TDK cassette 
demagnetisens as they do not degauss the 
erase head. When making your own tares 
on a PET always use quality audio tares 
■as budget tares suffer from drop out and 
mechanisms fail to run smoothly. Any of 
the leading makes of low noise tares are 
acceptable or of course, official 
Commodore blank tares can be purchased 
from our dealers. 

by Martin Maynard 
Audiogenic Limited 
34/36 Crown Street 
Readins 
Berks 
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Course Organiser 
($5500 upwards) 

B> Administrative Assistant 
($4000 upwards) 

Commodores'" Training Department is 
expanding. Two extra members ot staff' 
are required to Join us as soon as 


A> Training Course Organiser 

To share responsibility for running the 
BASIC arid DISC UTILISATION courses 
already successfully developed. The 
Job., based at Sloughs involves teaching., 
supervision of students - " work .and 
further course development. Part of the 
Job invoIves keeping up to date with all 
the latest developments in Micro 
Computer techniques and time and 
computing facilities are made available 
for this purpose. Later., you will be 
involved in the development and 
improvement of other Commodore courses 
and sem i nar-s. 


possible in the New Vear, Brief Job 
descriptions are given below. If you 
are interested contact Chris Punter on 
0753 74111 or write to her at Commodore 
bystems Division.. SI© Leigh Road.. 

Trading Estate, Slough, Berks. She will 
send you an application form together 
with a full Job specification. 


B:> Training Department Administrative 
Assistant 

To look after the administrative and 
clerical requirements of the Training 
Department. The Job, based at Slough, 
includes organising course bookings and 
venues, acquiring and transport of 
equipment, maintaining records and 
producing summaries, liaising with other 
departments, dealers and customers, 
normal filing and typing. You will be 
aided by computer equipment programmed 
to help rather than deter you in such 
areas .as mai ling lists, accounting and 
word-processing arid any necessary 
training will be given. 



The 

Original Cassette 
Magazine for the Commodore PET 

CURSOR 

CURSOR — The cassette program magazine for 
PET owners. Mailed to you by first class post, each 
issue contains a dynamic graphic cover, table of 
contents and at least five new programs. There is a 
featured game which might cost £8 elsewhere, 
plus tutorials, programming aids and business 
routines, and of course CURSOR Notes with news 
and equipment reviews. 

U.K.: £36 for one year 
subscription (10 issues) 

Overseas airmail: 

£45 for one year. 


ffrtC... 
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